home *** CD-ROM | disk | FTP | other *** search
- ;@GOTO TRANSLATE
-
- .586P
-
- .MODEL FLAT, STDCALL
-
- OPTION CASEMAP: NONE
- INCLUDE WINDOWS.inc
- UNICODE = TRUE
- INCLUDE APIMACRO.mac
-
- INCLUDE ApiHooks.inc
-
- INCLUDELIB master
- ;------------------------------------------------------------------
- .CODE
-
- GetApiHookChain PROC
- MOV EAX, OFFSET BindTest
- RET
- GetApiHookChain ENDP
- ;------------------------------------------------------------------
- NewExport PROC
- iWin32 Export
- INC EAX
- RET
- NewExport ENDP
- ;names-------------------------------------------------------------
- TEXTA master, <master.dll/0>
- TEXTA Export, <Export/0>
- ;------------------------------------------------------------------
- HOOK_NOW = HOOK_EXPORT
-
- IFDEF DONT_UNBIND
- HOOK_NOW = HOOK_NOW OR HOOK_NO_UNBIND
- ENDIF
-
- BeginHooks BindTest
- MkHook , master, Export, HOOK_NOW
- EndHooks
- ;------------------------------------------------------------------
-
- END
-
- :TRANSLATE
- @ECHO OFF
- ML /c /coff /nologo BindTest.bat
- eLINK BindTest /nologo /optidata /DLL /noentry /EXPORT:GetApiHookChain /SUBSYSTEM:WINDOWS /MERGE:.rdata=.text /IGNORE:4078 /BASE:0X77300000
- ML /c /coff /nologo /DDONT_UNBIND BindTest.bat
- eLINK BindTest /OUT:KindTest.dll /nologo /optidata /DLL /noentry /EXPORT:GetApiHookChain /SUBSYSTEM:WINDOWS /MERGE:.rdata=.text /IGNORE:4078 /BASE:0X77300000
- DEL BindTest.obj
- DEL BindTest.exp
- DEL BindTest.lib
- DEL KindTest.exp
- DEL KindTest.lib
- PAUSE
- CLS